home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / dll_gen / time2win / time2win.bas < prev    next >
Encoding:
BASIC Source File  |  1995-11-21  |  77.6 KB  |  1,082 lines

  1. Option Explicit
  2.  
  3. ' definition for win.ini section
  4. Global Const GET_TIME_SEPARATOR = 1
  5. Global Const GET_DATE_SEPARATOR = 2
  6. Global Const GET_TIME_FORMAT = 3
  7. Global Const GET_DATE_FORMAT = 4
  8. Global Const GET_CURRENCY = 5
  9. Global Const GET_LANGUAGE = 6
  10. Global Const GET_COUNTRY = 7
  11. Global Const GET_COUNTRY_CODE = 8
  12. Global Const GET_LIST_SEPARATOR = 9
  13. Global Const GET_DEFAULT_PRINTER = 10
  14.  
  15. ' definition for drive type
  16. Global Const DRIVE_UNKNOW = 0
  17. Global Const DRIVE_REMOVABLE = 2
  18. Global Const DRIVE_FIXED = 3
  19. Global Const DRIVE_REMOTE = 4
  20. Global Const DRIVE_CDROM = 20
  21.  
  22. ' definition for file attributes
  23. Global Const A_NORMAL = &H0             'Normal file - No read/write restrictions
  24. Global Const A_RDONLY = &H1             'Read only file
  25. Global Const A_HIDDEN = &H2             'Hidden file
  26. Global Const A_SYSTEM = &H4             'System file
  27. Global Const A_VOLID = &H8              'Volume ID file
  28. Global Const A_SUBDIR = &H10            'Subdirectory
  29. Global Const A_ARCH = &H20              'Archive file
  30. Global Const A_NORMAL_ARCHIVE = &HFE    'Normal, Archive
  31. Global Const A_ALL = &HFF               'Normal, Archive, Read-Only, Hidden, System
  32.  
  33. ' definition for encrypt/decrypt
  34. Global Const ENCRYPT_LEVEL_0 = 0
  35. Global Const ENCRYPT_LEVEL_1 = 1
  36. Global Const ENCRYPT_LEVEL_2 = 2
  37. Global Const ENCRYPT_LEVEL_3 = 3
  38. Global Const ENCRYPT_LEVEL_4 = 4
  39.  
  40. ' definition for FILECRC32
  41. Global Const OPEN_MODE_BINARY = 0
  42. Global Const OPEN_MODE_TEXT = 1
  43.  
  44. ' definition for ARRAYONDISK
  45. Global Const PUT_ARRAY_ON_DISK = 0
  46. Global Const GET_ARRAY_ON_DISK = 1
  47.  
  48. ' definition for big numbers
  49. Global Const BIG_ADD = 0
  50. Global Const BIG_SUB = 1
  51. Global Const BIG_MUL = 2
  52.  
  53. ' definition for file version information
  54. Global Const VER_VERSION_PRODUCT = -1
  55. Global Const VER_VERSION_FILE = 0
  56. Global Const VER_COMPANY_NAME = 1
  57. Global Const VER_FILE_DESCRIPTION = 2
  58. Global Const VER_FILE_VERSION = 3
  59. Global Const VER_INTERNAL_NAME = 4
  60. Global Const VER_LEGAL_COPYRIGHT = 5
  61. Global Const VER_LEGAL_TRADEMARKS = 6
  62. Global Const VER_PRODUCT_NAME = 7
  63. Global Const VER_PRODUCT_VERSION = 8
  64.  
  65. ' definition for language in multi-language management
  66. Global Const LNG_FRENCH = 1
  67. Global Const LNG_DUTCH = 2
  68. Global Const LNG_GERMAN = 3
  69. Global Const LNG_ENGLISH = 4
  70. Global Const LNG_ITALIAN = 5
  71. Global Const LNG_SPANISH = 6
  72. Global Const LNG_CATALAN = 7
  73. Global Const LNG_POLISH = 8
  74.  
  75. ' definition for message position in multi-language message box
  76. Global Const MB_MESSAGE_LEFT = 0
  77. Global Const MB_MESSAGE_CENTER = 8192
  78. Global Const MB_MESSAGE_RIGHT = 16384
  79.  
  80. ' definition for timeout management in multi-language message box
  81. Global Const MB_TIMEOUT_2 = 32768
  82. Global Const MB_TIMEOUT_4 = 2 * MB_TIMEOUT_2
  83. Global Const MB_TIMEOUT_8 = 2 * MB_TIMEOUT_4
  84. Global Const MB_TIMEOUT_16 = 2 * MB_TIMEOUT_8
  85.  
  86. Global Const MB_TIMEOUT_6 = MB_TIMEOUT_2 Or MB_TIMEOUT_4
  87. Global Const MB_TIMEOUT_10 = MB_TIMEOUT_2 Or MB_TIMEOUT_8
  88. Global Const MB_TIMEOUT_12 = MB_TIMEOUT_4 Or MB_TIMEOUT_8
  89. Global Const MB_TIMEOUT_14 = MB_TIMEOUT_2 Or MB_TIMEOUT_4 Or MB_TIMEOUT_8
  90. Global Const MB_TIMEOUT_18 = MB_TIMEOUT_2 Or MB_TIMEOUT_16
  91. Global Const MB_TIMEOUT_20 = MB_TIMEOUT_4 Or MB_TIMEOUT_16
  92. Global Const MB_TIMEOUT_22 = MB_TIMEOUT_2 Or MB_TIMEOUT_4 Or MB_TIMEOUT_16
  93. Global Const MB_TIMEOUT_24 = MB_TIMEOUT_8 Or MB_TIMEOUT_16
  94. Global Const MB_TIMEOUT_26 = MB_TIMEOUT_2 Or MB_TIMEOUT_8 Or MB_TIMEOUT_16
  95. Global Const MB_TIMEOUT_28 = MB_TIMEOUT_4 Or MB_TIMEOUT_8 Or MB_TIMEOUT_16
  96. Global Const MB_TIMEOUT_30 = MB_TIMEOUT_2 Or MB_TIMEOUT_4 Or MB_TIMEOUT_8 Or MB_TIMEOUT_16
  97.  
  98. Global Const MB_DISPLAY_TIMEOUT = 524288
  99.  
  100. ' definition for properties for language management
  101. Global Const RS_CAPTION = 1
  102. Global Const RS_TEXT = 2
  103. Global Const RS_DATAFIELD = 4
  104. Global Const RS_DATASOURCE = 8
  105. Global Const RS_TAG = 16
  106. Global Const RS_MENU = 32
  107. Global Const RS_ALL = 255
  108.  
  109. ' definition for error type for PATTERNMATCHEXT
  110. Global Const MATCH_HEXA = 17
  111. Global Const MATCH_INTERNAL_ERROR = 16
  112. Global Const MATCH_PATTERN = 15
  113. Global Const MATCH_LITERAL = 14
  114. Global Const MATCH_RANGE = 13
  115. Global Const MATCH_ABORT = 12
  116. Global Const MATCH_END = 11
  117. Global Const MATCH_VALID = -1
  118.  
  119. Global Const PATTERN_VALID = 0
  120. Global Const PATTERN_INVALID = 1
  121. Global Const PATTERN_ESC = 2
  122. Global Const PATTERN_RANGE = 3
  123. Global Const PATTERN_CLOSE = 4
  124. Global Const PATTERN_EMPTY = 5
  125. Global Const PATTERN_INTERNAL_ERROR = 6
  126. Global Const PATTERN_HEXA = 7
  127.  
  128. ' definition for error type for ISFILENAMEVALID
  129. Global Const IFV_ERROR = 0
  130. Global Const IFV_NAME_TOO_LONG = 1
  131. Global Const IFV_EXT_TOO_LONG = 2
  132. Global Const IFV_TOO_MANY_BACKSLASH = 3
  133. Global Const IFV_BAD_DRIVE_LETTER = 4
  134. Global Const IFV_BAD_COLON_POS = 5
  135. Global Const IFV_EXT_WITHOUT_NAME = 6
  136.  
  137. ' definition for variable type in DISK ARRAY
  138. Global Const DA_BYTE = 1
  139. Global Const DA_TYPE = 0
  140. Global Const DA_INTEGER = -2
  141. Global Const DA_LONG = -3
  142. Global Const DA_SINGLE = -4
  143. Global Const DA_DOUBLE = -5
  144. Global Const DA_CURRENCY = -6
  145.  
  146. ' definition for error type in DISK ARRAY
  147. Global Const DA_NO_ERROR = True
  148. Global Const DA_EMPTY_FILENAME = 1
  149. Global Const DA_BAD_FILENAME = 2
  150. Global Const DA_CAN_KILL_FILE = 3
  151. Global Const DA_CAN_NOT_OPEN_FILE = 4
  152. Global Const DA_FILE_NOT_FOUND = 5
  153. Global Const DA_BAD_TYPE = 6
  154. Global Const DA_BAD_ROWS = 7
  155. Global Const DA_BAD_COLS = 8
  156. Global Const DA_BAD_SHEETS = 9
  157. Global Const DA_CAN_NOT_WRITE_HEADER = 10
  158. Global Const DA_CAN_NOT_WRITE_PART = 11
  159. Global Const DA_CAN_NOT_WRITE_REMAIN = 12
  160. Global Const DA_CAN_NOT_READ_HEADER = 13
  161. Global Const DA_HEADER_SIZE = 14
  162. Global Const DA_BAD_SIGNATURE = 15
  163. Global Const DA_FILE_SIZE_MISMATCH = 16
  164. Global Const DA_CAN_NOT_SEEK = 17
  165. Global Const DA_INVALID_HANDLE = 18
  166. Global Const DA_CAN_NOT_READ_PART = 19
  167. Global Const DA_CAN_NOT_READ_REMAIN = 20
  168.  
  169. ' definition for error type in HUGE MEMORY ARRAY
  170. Global Const HMA_NO_ERROR = True
  171. Global Const HMA_NO_MEMORY = 1
  172. Global Const HMA_BAD_TYPE = 2
  173. Global Const HMA_BAD_ROWS = 3
  174. Global Const HMA_BAD_COLS = 4
  175. Global Const HMA_BAD_SHEETS = 5
  176. Global Const HMA_INVALID_HANDLE = 6
  177.  
  178. ' definition for error type in SERIAL DATA
  179. Global Const SD_SERIAL_NOT_FOUND = 1
  180. Global Const SD_CAN_NOT_OPEN_FILE = 2
  181.  
  182. ' definition for File I/O
  183. Global Const EOFILE = -1
  184. Global Const SEEK_CUR = 1
  185. Global Const SEEK_END = 2
  186. Global Const SEEK_SET = 0
  187.  
  188. ' definition for file sort
  189. Global Const SORT_ASCENDING = 1
  190. Global Const SORT_DESCENDING = 2
  191. Global Const SORT_CASE_SENSITIVE = 4
  192. Global Const SORT_CASE_INSENSITIVE = 8
  193.  
  194. ' definition for compress/expand
  195. Global Const LZH_ENCODE = True
  196. Global Const LZH_DECODE = False
  197.  
  198. ' definition for PROPERNAME2
  199. Global Const PN_UPPERCASE = 1
  200. Global Const PN_PUNCTUATION = 2
  201. Global Const PN_KEEP_ORIGINAL = 4
  202. Global Const PN_ONLY_LEADER_SPACE = 8
  203.  
  204. ' definition for matrix fill
  205. Global Const MATRIX_ZERO = 0
  206. Global Const MATRIX_UNIT = 1
  207.  
  208. ' definition for FX picture
  209. Global Const FX_HORIZONTAL = 1
  210. Global Const FX_VERTICAL = 2
  211. Global Const FX_DIAGONAL_SQUARE = 3
  212. Global Const FX_RECTANGLE = 4
  213.  
  214. ' structure for splittin path
  215. Type tagSPLITPATH
  216.    nDrive            As String
  217.    nDir              As String
  218.    nName             As String
  219.    nExt              As String
  220. End Type
  221.  
  222. ' structure for file version information
  223. Type tagFILEVERSIONINFO
  224.    VersionProduct    As String
  225.    VersionFile       As String
  226.    CompanyName       As String
  227.    FileDescription   As String
  228.    FileVersion       As String
  229.    InternalName      As String
  230.    LegalCopyright    As String
  231.    LegalTrademarks   As String
  232.    Comments          As String
  233.    ProductName       As String
  234.    ProductVersion    As String
  235. End Type
  236.  
  237. ' structure for file attributes
  238. Type FileAttributeType
  239.    ErrNo             As Integer
  240.    Archive           As Integer
  241.    Hidden            As Integer
  242.    Normal            As Integer
  243.    ReadOnly          As Integer
  244.    SubDir            As Integer
  245.    System            As Integer
  246.    VolId             As Integer
  247. End Type
  248.  
  249. ' structure for VB array
  250. Type ArrayType
  251.    Bounds            As Long
  252.    LBound            As Integer
  253.    UBound            As Integer
  254.    ElemSize          As Integer
  255.    IndexCount        As Integer
  256.    TotalElem         As Integer
  257. End Type
  258.  
  259. ' structure for modules
  260. Type tagMODULEENTRY
  261.    dwSize            As Long
  262.    szModule          As String * 10
  263.    hModule           As Integer
  264.    wcUsage           As Integer
  265.    szExePath         As String * 256
  266.    wNext             As Integer
  267. End Type
  268.  
  269. ' structure for tasks
  270. Type tagTASKENTRY
  271.    dwSize            As Long
  272.    hTask             As Integer
  273.    hTaskParent       As Integer
  274.    hInst             As Integer
  275.    hModule           As Integer
  276.    wSS               As Integer
  277.    wSP               As Integer
  278.    wStackTop         As Integer
  279.    wStackMinimum     As Integer
  280.    wStackBottom      As Integer
  281.    wcEvents          As Integer
  282.    hQueue            As Integer
  283.    szModule          As String * 10
  284.    wPSPOffset        As Integer
  285.    hNext             As Integer
  286. End Type
  287.  
  288. ' structure for disk array
  289. Type tagDISKARRAY
  290.    daSize            As Integer           'size of the type'd
  291.    signature         As String * 7        'signature
  292.    nFilename         As String * 64       'name of the file
  293.    nType             As Integer           'variable type
  294.    nRows             As Long              'number of rows
  295.    nCols             As Long              'number of cols
  296.    nSheets           As Long              'number of sheets
  297.    rHandle           As Integer           'returned handle for use with other functions
  298.    rElementSize      As Integer           'returned size of a element
  299.    rFileSize         As Long              'returned size of the file
  300.    rParts            As Long              'returned total part
  301.    rRemain           As Long              'returned size of the remain part
  302.    rSheetSize        As Long              'size of a sheet
  303.    rOffset1          As Long              'returned offset 1
  304.    rOffset2          As Long              'returned offset 2
  305.    rTime             As Long              'time for the last correct transaction
  306.    nIsTyped          As Integer           'is nType a type'd variable
  307.    Dummy             As String * 7        'reserved for future use
  308. End Type
  309.  
  310. ' structure for multiple disk array
  311. Type tagMULTIPLEDISKARRAY
  312.    daSize               As Integer        'size of the structure
  313.    signature            As String * 7     'signature
  314.    nFilename            As String * 64    'name of the file
  315.    nType(1 To 20)       As Integer        'standard variable type (for 20 arrays)
  316.    nIsTyped(1 To 20)    As Integer        'is a type'd (for 20 arrays)
  317.    nRows(1 To 20)       As Long           'number of rows (for 20 arrays)
  318.    nCols(1 To 20)       As Long           'number of cols (for 20 arrays)
  319.    nSheets(1 To 20)     As Long           'number of sheets (for 20 arrays)
  320.    rHandle              As Integer        'returned handle for use with other functions
  321.    rFileSize            As Long           'returned size of the file
  322.    rElementSz(1 To 20)  As Integer        'returned size of a element (for 20 arrays)
  323.    rSheetSz(1 To 20)    As Long           'size of a sheet (for 20 arrays)
  324.    rOffsetPos(1 To 20)  As Long           'position of each array in the file (for 20 arrays)
  325.    rOffset1             As Long           'returned offset 1
  326.    rOffset2             As Long           'returned offset 2
  327.    rTime                As Long           'time for the last correct transaction
  328.    Dummy                As String * 29    'reserved for future use
  329. End Type
  330.  
  331. ' structure for huge memory array
  332. Type tagHMA
  333.    daSize            As Integer           'size of the type'd
  334.    nType             As Integer           'variable type
  335.    nRows             As Long              'number of rows
  336.    nCols             As Long              'number of cols
  337.    nSheets           As Long              'number of sheets
  338.    rHandle           As Integer           'returned handle for use with other functions
  339.    rElementSize      As Long              'returned size of a element
  340.    rMemorySize       As Long              'returned size of the memory used
  341.    rParts            As Long              'returned total part
  342.    rRemain           As Long              'returned size of the remain part
  343.    rSheetSize        As Long              'size of a sheet
  344.    rOffset           As Long              'returned offset
  345.    nIsTyped          As Integer           'is nType a type'd variable
  346.    Dummy             As String * 20       'reserved for future use
  347. End Type
  348.  
  349. ' structure for serialization
  350. Type tagSERIALDATA
  351.    Description1      As String * 50       'serialization description 1
  352.    Description2      As String * 50       'serialization description 2
  353.    Number            As Long              'serialization number
  354.    Dummy             As String * 50       'reserved for future use
  355. End Type
  356.  
  357. ' structure for ARRAYSTRINGONDISK and FILESINDIRTOARRAY
  358. Type tagVARSTRING
  359.    Contents          As String
  360. End Type
  361.  
  362. ' structure for 2-D geometry types
  363. Type tagVECTOR2
  364.    x                 As Double
  365.    y                 As Double
  366. End Type
  367.  
  368. ' structure for 3-D geometry types
  369. Type tagVECTOR3
  370.    x                 As Double
  371.    y                 As Double
  372.    z                 As Double
  373. End Type
  374.  
  375. ' structure for get/set Media ID
  376. Type tagMEDIAID
  377.    InfoLevel         As Integer
  378.    SerialNumber      As Long
  379.    VolLabel          As String * 11
  380.    FileSysType       As String * 8
  381. End Type
  382.  
  383. ' structure for Get Control Rectangle
  384. Type tagRECT
  385.    Left              As Integer
  386.    Top               As Integer
  387.    Right             As Integer
  388.    Bottom            As Integer
  389. End Type
  390.  
  391. ' structure for 3D-Meter
  392. Type tag3DMeter
  393.    CrtValue          As Long              'current value
  394.    MaxValue          As Long              'maximum value
  395.    BackColor         As Long
  396.    ForeColor         As Long
  397.    Polygon           As Integer           '0  : rectangle, 1 : triangle, 2 : trapezium, 3 : ellipse , 4 : bars
  398.    BarSize           As Integer           'size of a bar (polygon = 4) (in pixel : min=1,max=20,default=10)
  399.    SpaceBars         As Integer           'space between bars (polygon = 4) (in pixel : min=1,max=4,default=2)
  400.    Direction         As Integer           '0  : horizontal, other : vertical
  401.    ThreeD            As Integer           '-1 : indented, 1 : raised
  402.    Thickness         As Integer
  403.    Percent           As Integer           'internal use, do not change
  404.    OldPolygon        As Integer           'internal use, do not change
  405.    OldDirection      As Integer           'internal use, do not change
  406.    OldThreeD         As Integer           'internal use, do not change
  407.    HatchBrush        As Integer           '-1 : solid brush, 0 : hor., 1 : ver., 2 : downward diag., 3 : upward diag., 4 : cross, 5 : diag.cross
  408. End Type
  409.  
  410. ' structure for File Information
  411. Type tagFILEINFO
  412.    fSize             As Long              'size of the file
  413.    fDate             As Long              'date of the file (scalar date)
  414.    fTime             As Long              'time of the file (scalar time)
  415.    fAttribute        As Integer           'attribute of the file
  416. End Type
  417.    
  418. Rem Don't Remove It
  419. Declare Sub c3D Lib "time2win.dll" (Ctl As Control, ByVal Method As Integer, ByVal Thickness As Integer)
  420. Declare Sub c3DMeter Lib "time2win.dll" (hCtl As Control, Meter As tag3DMeter)
  421. Declare Function cAddD Lib "time2win.dll" (array() As Double, ByVal nValue As Double) As Integer
  422. Declare Function cAddDigit Lib "time2win.dll" (Txt As String) As Integer
  423. Declare Function cAddI Lib "time2win.dll" (array() As Integer, ByVal nValue As Integer) As Integer
  424. Declare Function cAddL Lib "time2win.dll" (array() As Long, ByVal nValue As Long) As Integer
  425. Declare Function cAddS Lib "time2win.dll" (array() As Single, ByVal nValue As Single) As Integer
  426. Declare Function cAddTime Lib "time2win.dll" (ByVal Hr As Integer) As Integer
  427. Declare Function cAddTwoTimes Lib "time2win.dll" (ByVal Time1 As String, ByVal Time2 As String) As String
  428. Declare Function cAlign Lib "time2win.dll" (Txt As String, ByVal TypeAlign As Integer, ByVal NewLength As Integer) As String
  429. Declare Function cAllSubDirectories Lib "time2win.dll" (ByVal lpBaseDirectory As String, nDir As Integer) As String
  430. Declare Function cAndToken Lib "time2win.dll" (ByVal Txt As String, ByVal Token As String) As Integer
  431. Declare Function cAndTokenIn Lib "time2win.dll" (ByVal Txt As String, ByVal Token As String, ByVal Separator As String) As Integer
  432. Declare Function cArabicToRoman Lib "time2win.dll" (Var As Variant) As String
  433. Declare Sub cArrangeDesktopIcons Lib "time2win.dll" ()
  434. Declare Function cArrayOnDisk Lib "time2win.dll" (ByVal file As String, array() As Any, ByVal GetPut As Integer) As Long
  435. Declare Function cArrayPrm Lib "time2win.dll" (array() As Any, nArray As Any) As Integer
  436. Declare Function cArrayStringOnDisk Lib "time2win.dll" (ByVal file As String, array() As Any, ByVal GetPut As Integer, rRecords As Long) As Long
  437. Declare Function cArrayToComboBox Lib "time2win.dll" (ByVal hWnd As Integer, array() As Any) As Integer
  438. Declare Function cArrayToListBox Lib "time2win.dll" (ByVal hWnd As Integer, array() As Any) As Integer
  439. Declare Function cBaseConversion Lib "time2win.dll" (ByVal Num As String, ByVal RadixIn As Integer, ByVal RadixOut As Integer) As String
  440. Declare Function cBetween Lib "time2win.dll" (Var As Variant, Var1 As Variant, Var2 As Variant) As Integer
  441. Declare Function cBigAdd Lib "time2win.dll" (Num1 As String, Num2 As String) As String
  442. Declare Function cBigDiv Lib "time2win.dll" (Num1 As String, Num2 As String) As String
  443. Declare Function cBigMul Lib "time2win.dll" (Num1 As String, Num2 As String) As String
  444. Declare Function cBigNum Lib "time2win.dll" (ByVal n1 As String, ByVal op As Integer, ByVal n2 As String) As String
  445. Declare Function cBigSub Lib "time2win.dll" (Num1 As String, Num2 As String) As String
  446. Declare Function cBigFmt Lib "time2win.dll" (Num As String, ByVal Length As Integer) As String
  447. Declare Function cBlockCharFromLeft Lib "time2win.dll" (Txt As String, ByVal Position As Integer) As String
  448. Declare Function cBlockCharFromRight Lib "time2win.dll" (Txt As String, ByVal Position As Integer) As String
  449. Declare Sub cCenterWindow Lib "time2win.dll" (ByVal hWnd As Integer)
  450. Declare Sub cChangeChars Lib "time2win.dll" (Txt As String, CharSet As String, NewCharSet As String)
  451. Declare Sub cChangeCharsUntil Lib "time2win.dll" (Txt As String, CharSet As String, NewCharSet As String, nUntil As String)
  452. Declare Sub cChangeTaskName Lib "time2win.dll" (ByVal hWnd As Integer, ByVal Text As String)
  453. Declare Function cChDir Lib "time2win.dll" (ByVal lpDir As String) As Integer
  454. Declare Function cChDrive Lib "time2win.dll" (ByVal lpDrive As String) As Integer
  455. Declare Function cCheckChars Lib "time2win.dll" (Txt As String, CharSet As String) As Integer
  456. Declare Function cCheckMinuteChange Lib "time2win.dll" () As Integer
  457. Declare Function cCheckNumericity Lib "time2win.dll" (Txt As String) As Integer
  458. Declare Function cCheckSecondChange Lib "time2win.dll" () As Integer
  459. Declare Function cCheckStatus Lib "time2win.dll" (Ctl As Control) As Integer
  460. Declare Function cCheckTime Lib "time2win.dll" (ByVal Hr As Integer, ByVal Hr1 As Integer, ByVal Hr2 As Integer) As Integer
  461. Declare Function cCheckWait Lib "time2win.dll" (ByVal nTimer As Integer) As Integer
  462. Declare Function cCloseAllEditForm Lib "time2win.dll" () As Integer
  463. Declare Function cHashMD5 Lib "time2win.dll" (Text As String) As String
  464. Declare Function cCmpFileAttribute Lib "time2win.dll" (ByVal file1 As String, ByVal file2 As String) As Integer
  465. Declare Function cCmpFileContents Lib "time2win.dll" (ByVal file1 As String, ByVal file2 As String, ByVal Sensitivity As Integer) As Integer
  466. Declare Function cCmpFileSize Lib "time2win.dll" (ByVal file1 As String, ByVal file2 As String) As Integer
  467. Declare Function cCmpFileTime Lib "time2win.dll" (ByVal file1 As String, ByVal file2 As String) As Integer
  468. Declare Sub cCnvASCIItoEBCDIC Lib "time2win.dll" (Txt As String)
  469. Declare Sub cCnvEBCDICtoASCII Lib "time2win.dll" (Txt As String)
  470. Declare Function cCombination Lib "time2win.dll" (ByVal nItems As Integer, ByVal mTimes As Integer) As Double
  471. Declare Function cCompact Lib "time2win.dll" (Txt As String) As String
  472. Declare Function cCompareTypeString Lib "time2win.dll" Alias "cTypesCompare" (TypeSrc As Any, ByVal Dst As String, ByVal lenTypeSrc As Integer) As Integer
  473. Declare Function cCompareStringType Lib "time2win.dll" Alias "cTypesCompare" (ByVal Src As String, TypeDst As Any, ByVal lenTypeSrc As Integer) As Integer
  474. Declare Function cCompress Lib "time2win.dll" (Txt As String) As String
  475. Declare Function cCompressTab Lib "time2win.dll" (Txt As String, ByVal nTab As Integer) As String
  476. Declare Sub cCtl3D Lib "time2win.dll" (Ctl As Control, ByVal LeftTopColor As Long, ByVal RightBottomColor As Long, ByVal Thickness As Integer)
  477. Declare Function cConvert Lib "time2win.dll" (Value As String, ByVal MaskFrom As String, ByVal MaskTo As String, ByVal Size As Integer) As String
  478. Declare Function cCount Lib "time2win.dll" (Txt As String, Separator As String) As Integer
  479. Declare Function cCountDirectories Lib "time2win.dll" (ByVal lpFilename As String) As Integer
  480. Declare Function cCountFiles Lib "time2win.dll" (ByVal lpFilename As String) As Integer
  481. Declare Function cCountI Lib "time2win.dll" (array() As Integer, ByVal Value As Integer) As Long
  482. Declare Function cCountL Lib "time2win.dll" (array() As Long, ByVal Value As Long) As Long
  483. Declare Function cCountS Lib "time2win.dll" (array() As Single, ByVal Value As Single) As Long
  484. Declare Function cCountD Lib "time2win.dll" (array() As Double, ByVal Value As Double) As Long
  485. Declare Function cCplAlpha Lib "time2win.dll" (Txt As String) As String
  486. Declare Function cCplDigit Lib "time2win.dll" (Txt As String) As String
  487. Declare Function cCreateAndFill Lib "time2win.dll" (ByVal Length As Integer, Txt As String) As String
  488. Declare Function cCreateBits Lib "time2win.dll" (ByVal nBits As Integer) As String
  489. Declare Function cCurrentTime Lib "time2win.dll" () As Integer
  490. Declare Function cCVB Lib "time2win.dll" (Value As String) As Integer
  491. Declare Function cCVC Lib "time2win.dll" (Value As String) As Currency
  492. Declare Function cCVD Lib "time2win.dll" (Value As String) As Double
  493. Declare Function cCVI Lib "time2win.dll" (Value As String) As Integer
  494. Declare Function cCVL Lib "time2win.dll" (Value As String) As Long
  495. Declare Function cCVS Lib "time2win.dll" (Value As String) As Single
  496. Declare Function cDAClear Lib "time2win.dll" (DISKARRAY As tagDISKARRAY) As Integer
  497. Declare Function cDAClearCol Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, ByVal sheet As Long) As Integer
  498. Declare Function cDAClearRow Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal sheet As Long) As Integer
  499. Declare Function cDAClearSheet Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal sheet As Long) As Integer
  500. Declare Sub cDAClose Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal DeleteFile As Integer)
  501. Declare Function cDACreate Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal CreateOrUse As Integer) As Integer
  502. Declare Function cDAGet Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long) As Variant
  503. Declare Sub cDAGetType Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  504. Declare Sub cDAPut Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, Var As Variant)
  505. Declare Sub cDAPutType Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  506. Declare Sub cDArGet Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, Var As Variant)
  507. Declare Sub cDArGetType Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, nType As Any)
  508. Declare Sub cDArPut Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, Var As Variant)
  509. Declare Sub cDArPutType Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, nType As Any)
  510. Declare Function cDAsClearCol Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long) As Integer
  511. Declare Function cDAsClearRow Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long) As Integer
  512. Declare Sub cDAsGet Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  513. Declare Sub cDAsGetType Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, nType As Any)
  514. Declare Sub cDAsPut Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  515. Declare Sub cDAsPutType Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, nType As Any)
  516. Declare Function cDateToScalar Lib "time2win.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer) As Long
  517. Declare Function cDayOfWeek Lib "time2win.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer, ByVal nISO As Integer) As Integer
  518. Declare Function cDayOfYear Lib "time2win.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer) As Integer
  519. Declare Function cDaysInMonth Lib "time2win.dll" (ByVal nYear As Integer, ByVal nMonth As Integer) As Integer
  520. Declare Sub cDecrI Lib "time2win.dll" (Value As Integer)
  521. Declare Sub cDecrL Lib "time2win.dll" (Value As Long)
  522. Declare Function cDecrypt Lib "time2win.dll" (Txt As String, password As String, ByVal level As Integer) As String
  523. Declare Function cDeviationD Lib "time2win.dll" (array() As Double) As Double
  524. Declare Function cDeviationI Lib "time2win.dll" (array() As Integer) As Double
  525. Declare Function cDeviationL Lib "time2win.dll" (array() As Long) As Double
  526. Declare Function cDeviationS Lib "time2win.dll" (array() As Single) As Double
  527. Declare Sub cDisableCtlRedraw Lib "time2win.dll" (Ctl As Control)
  528. Declare Sub cDisableFI Lib "time2win.dll" (Ctl As Control)
  529. Declare Sub cDisableForm Lib "time2win.dll" (ByVal hWnd As Integer)
  530. Declare Sub cDisableRedraw Lib "time2win.dll" (ByVal hWnd As Integer)
  531. Declare Function cDOSGetMediaID Lib "time2win.dll" (ByVal nDrive As String, MEDIAID As tagMEDIAID) As Integer
  532. Declare Function cDOSGetVolumeLabel Lib "time2win.dll" (ByVal nDrive As String) As String
  533. Declare Function cDOSSetMediaID Lib "time2win.dll" (ByVal nDrive As String, MEDIAID As tagMEDIAID) As Integer
  534. Declare Function cDOSSetVolumeLabel Lib "time2win.dll" (ByVal nDrive As String, ByVal nVolumeLabel As String) As Integer
  535. Declare Sub cEnableCtlRedraw Lib "time2win.dll" (Ctl As Control)
  536. Declare Sub cEnableFI Lib "time2win.dll" (Ctl As Control)
  537. Declare Sub cEnableForm Lib "time2win.dll" (ByVal hWnd As Integer)
  538. Declare Sub cEnableRedraw Lib "time2win.dll" (ByVal hWnd As Integer)
  539. Declare Function cEncrypt Lib "time2win.dll" (Txt As String, password As String, ByVal level As Integer) As String
  540. Declare Function cEXEnameActiveWindow Lib "time2win.dll" () As String
  541. Declare Function cEXEnameWindow Lib "time2win.dll" (ByVal hModule As Integer) As String
  542. Declare Function cEXEnameTask Lib "time2win.dll" (ByVal nFilename As String) As String
  543. Declare Function cExitWindowsAndExecute Lib "time2win.dll" (ByVal lpszExe As String, ByVal lpszParams As String) As Integer
  544. Declare Function cExpandTab Lib "time2win.dll" (Txt As String, ByVal nTab As Integer) As String
  545. Declare Function cFileChangeChars Lib "time2win.dll" (ByVal nFilename As String, CharSet As String, NewCharSet As String, ByVal nFileTemp As String) As Long
  546. Declare Function cFileCompress Lib "time2win.dll" (ByVal file1 As String, ByVal file2 As String) As Long
  547. Declare Function cFileCompressTab Lib "time2win.dll" (ByVal file1 As String, ByVal file2 As String, ByVal nTab As Integer) As Long
  548. Declare Function cFileCopy Lib "time2win.dll" (ByVal file1 As String, ByVal file2 As String) As Long
  549. Declare Function cFileCRC32 Lib "time2win.dll" (ByVal lpFilename As String, ByVal Mode As Integer) As Long
  550. Declare Function cFileDateCreated Lib "time2win.dll" (ByVal lpFilename As String) As String
  551. Declare Function cFileDecrypt Lib "time2win.dll" (ByVal file1 As String, ByVal file2 As String, password As String, ByVal level As Integer) As Long
  552. Declare Function cFileDrive Lib "time2win.dll" (ByVal lpFilename As String) As String
  553. Declare Function cFileEncrypt Lib "time2win.dll" (ByVal file1 As String, ByVal file2 As String, password As String, ByVal level As Integer) As Long
  554. Declare Function cFileExpand Lib "time2win.dll" (ByVal file1 As String, ByVal file2 As String) As Long
  555. Declare Function cFileExpandTab Lib "time2win.dll" (ByVal file1 As String, ByVal file2 As String, ByVal nTab As Integer) As Long
  556. Declare Function cFileFilter Lib "time2win.dll" (ByVal file1 As String, ByVal file2 As String, Filter As String) As Long
  557. Declare Function cFileFilterNot Lib "time2win.dll" (ByVal file1 As String, ByVal file2 As String, Filter As String) As Long
  558. Declare Function cFileGetAttrib Lib "time2win.dll" (ByVal nFilename As String, nFileAttribute As Any) As Integer
  559. Declare Function cFileLastDateAccess Lib "time2win.dll" (ByVal lpFilename As String) As String
  560. Declare Function cFileLastDateModified Lib "time2win.dll" (ByVal lpFilename As String) As String
  561. Declare Function cFileLastTimeAccess Lib "time2win.dll" (ByVal lpFilename As String) As String
  562. Declare Function cFileLastTimeModified Lib "time2win.dll" (ByVal lpFilename As String) As String
  563. Declare Function cFileLineCount Lib "time2win.dll" (ByVal lpFilename As String) As Long
  564. Declare Function cFileMerge Lib "time2win.dll" (ByVal file1 As String, ByVal file2 As String, ByVal fileTo As String) As Long
  565. Declare Function cFilePathExists Lib "time2win.dll" (ByVal lpFilename As String) As Integer
  566. Declare Function cFileResetAllAttrib Lib "time2win.dll" (ByVal nFilename As String) As Integer
  567. Declare Function cFileResetArchive Lib "time2win.dll" (ByVal nFilename As String) As Integer
  568. Declare Function cFileResetFlag Lib "time2win.dll" (ByVal nFilename As String, ByVal nStatus As Integer) As Integer
  569. Declare Function cFileResetHidden Lib "time2win.dll" (ByVal nFilename As String) As Integer
  570. Declare Function cFileResetReadOnly Lib "time2win.dll" (ByVal nFilename As String) As Integer
  571. Declare Function cFileResetSystem Lib "time2win.dll" (ByVal nFilename As String) As Integer
  572. Declare Function cFileSearch Lib "time2win.dll" (ByVal nFilename As String, ByVal Search As String, ByVal Sensitivity As Integer) As Long
  573. Declare Function cFileSearchAndReplace Lib "time2win.dll" (ByVal nFilename As String, ByVal Search As String, ByVal Replace As String, ByVal nFileTemp As String, ByVal Sensitivity As Integer) As Long
  574. Declare Function cFileSearchCount Lib "time2win.dll" (ByVal nFilename As String, ByVal Search As String, ByVal Sensitivity As Integer) As Long
  575. Declare Function cFileSetAllAttrib Lib "time2win.dll" (ByVal nFilename As String) As Integer
  576. Declare Function cFileSetArchive Lib "time2win.dll" (ByVal nFilename As String) As Integer
  577. Declare Function cFileSetAttrib Lib "time2win.dll" (ByVal nFilename As String, nFileAttribute As Any) As Integer
  578. Declare Function cFileSetFlag Lib "time2win.dll" (ByVal nFilename As String, ByVal nStatus As Integer) As Integer
  579. Declare Function cFileSetHidden Lib "time2win.dll" (ByVal nFilename As String) As Integer
  580. Declare Function cFileSetReadOnly Lib "time2win.dll" (ByVal nFilename As String) As Integer
  581. Declare Function cFileSetSystem Lib "time2win.dll" (ByVal nFilename As String) As Integer
  582. Declare Function cFilesInDirectory Lib "time2win.dll" (ByVal nFilename As String, ByVal FirstNext As Integer) As String
  583. Declare Function cFilesInDirOnDisk Lib "time2win.dll" (ByVal nFile As String, ByVal nFilename As String, ByVal nAttribute As Integer) As Integer
  584. Declare Function cFilesInDirToArray Lib "time2win.dll" (ByVal nFilename As String, ByVal nAttribute As Integer, array() As Any) As Integer
  585. Declare Function cFilesInfoInDir Lib "time2win.dll" (ByVal nFilename As String, FILEINFO As tagFILEINFO, ByVal FirstNext As Integer) As String
  586. Declare Function cFileSize Lib "time2win.dll" (ByVal lpFilename As String) As Long
  587. Declare Function cFileSort Lib "time2win.dll" (ByVal FileIn As String, ByVal FileOut As String, ByVal SortMethod As Integer, ByVal RecordLength As Long, ByVal KeyOffset As Long, ByVal KeyLength As Long, rRecords As Integer) As Long
  588. Declare Function cFilesSize Lib "time2win.dll" (ByVal nFilename As String) As Long
  589. Declare Function cFilesSizeOnDisk Lib "time2win.dll" (ByVal nFilename As String) As Long
  590. Declare Function cFilesSlack Lib "time2win.dll" (ByVal nFilename As String, Size1 As Long, Size2 As Long) As Integer
  591. Declare Function cFileStatistics Lib "time2win.dll" (ByVal nFilename As String, nLines As Long, nWords As Long, nChars As Long) As Long
  592. Declare Function cFileTimeCreated Lib "time2win.dll" (ByVal lpFilename As String) As String
  593. Declare Function cFileToComboBox Lib "time2win.dll" (ByVal hWnd As Integer, ByVal nFile As String) As Integer
  594. Declare Function cFileToListBox Lib "time2win.dll" (ByVal hWnd As Integer, ByVal nFile As String) As Integer
  595. Declare Function cFileToUpper Lib "time2win.dll" (ByVal file1 As String, ByVal file2 As String) As Long
  596. Declare Function cFileToLower Lib "time2win.dll" (ByVal file1 As String, ByVal file2 As String) As Long
  597. Declare Sub cFill Lib "time2win.dll" (Txt As String, Fill As String)
  598. Declare Function cFillD Lib "time2win.dll" (array() As Double, ByVal nValue As Double) As Integer
  599. Declare Function cFillI Lib "time2win.dll" (array() As Integer, ByVal nValue As Integer) As Integer
  600. Declare Function cFillL Lib "time2win.dll" (array() As Long, ByVal nValue As Long) As Integer
  601. Declare Function cFillS Lib "time2win.dll" (array() As Single, ByVal nValue As Single) As Integer
  602. Declare Function cFillIncrD Lib "time2win.dll" (array() As Double, ByVal nValue As Double, ByVal Increment As Double) As Integer
  603. Declare Function cFillIncrI Lib "time2win.dll" (array() As Integer, ByVal nValue As Integer, ByVal Increment As Integer) As Integer
  604. Declare Function cFillIncrL Lib "time2win.dll" (array() As Long, ByVal nValue As Long, ByVal Increment As Long) As Integer
  605. Declare Function cFillIncrS Lib "time2win.dll" (array() As Single, ByVal nValue As Single, ByVal Increment As Single) As Integer
  606. Declare Function cFilterBlocks Lib "time2win.dll" (Txt As String, Delimitor As String) As String
  607. Declare Function cFilterChars Lib "time2win.dll" (Txt As String, CharSet As String) As String
  608. Declare Function cFilterFirstChars Lib "time2win.dll" (Txt As String, CharSet As String) As String
  609. Declare Function cFilterNotChars Lib "time2win.dll" (Txt As String, CharSet As String) As String
  610. Declare Function cFindBitReset Lib "time2win.dll" (Txt As String, ByVal Position As Integer) As Integer
  611. Declare Function cFindBitSet Lib "time2win.dll" (Txt As String, ByVal Position As Integer) As Integer
  612. Declare Function cFindFileInEnv Lib "time2win.dll" (ByVal lpFilename As String, ByVal lpEnv As String) As Integer
  613. Declare Function cFindFileInPath Lib "time2win.dll" (ByVal lpFilename As String) As Integer
  614. Declare Function cFloppyInfo Lib "time2win.dll" (ByVal nDrive As String, nHeads As Integer, nCylinders As Integer, nSectors As Integer) As Integer
  615. Declare Function cFraction Lib "time2win.dll" (ByVal nValue As Double, nNumerator As Double, nDenominator As Double) As Double
  616. Declare Function cFromBinary Lib "time2win.dll" (Text As String) As String
  617. Declare Function cFromBinary2 Lib "time2win.dll" (Text As String, Bin As String) As String
  618. Declare Function cFromHexa Lib "time2win.dll" (Text As String) As String
  619. Declare Function cFullPath Lib "time2win.dll" (ByVal nFilename As String) As String
  620. Declare Function cFXpicture Lib "time2win.dll" (ByVal Method As Integer, ByVal hdc1 As Integer, ByVal hbitmap As Integer, ByVal parameter As Integer, ByVal delay As Integer) As Integer
  621. Declare Function cGet Lib "time2win.dll" (Txt As String, ByVal Position As Integer) As String
  622. Declare Function cGetAscTime Lib "time2win.dll" (ByVal nLanguage As Integer) As String
  623. Declare Function cGetBit Lib "time2win.dll" (Txt As String, ByVal Position As Integer) As Integer
  624. Declare Function cGetBlock Lib "time2win.dll" (Txt As String, ByVal Position As Integer, ByVal Length As Integer) As String
  625. Declare Function cGetCaption Lib "time2win.dll" (ByVal hWnd As Integer) As String
  626. Declare Function cGetChangeTaskName Lib "time2win.dll" (ByVal hWnd As Integer, ByVal Text As String) As String
  627. Declare Function cGetClass Lib "time2win.dll" (ByVal hWnd As Integer) As String
  628. Declare Function cGetClassName Lib "time2win.dll" (ByVal hWnd As Integer) As String
  629. Declare Function cGetContainer Lib "time2win.dll" (ByVal hWnd As Integer) As String
  630. Declare Function cGetCountry Lib "time2win.dll" () As String
  631. Declare Function cGetCountryCode Lib "time2win.dll" () As String
  632. Declare Function cGetCtlCaption Lib "time2win.dll" (Ctl As Control) As String
  633. Declare Function cGetCtlClass Lib "time2win.dll" (Ctl As Control) As String
  634. Declare Function cGetCtlContainer Lib "time2win.dll" (Ctl As Control) As String
  635. Declare Function cGetCtlDataField Lib "time2win.dll" (Ctl As Control) As String
  636. Declare Function cGetCtlForm Lib "time2win.dll" (Ctl As Control) As String
  637. Declare Function cGetCtlIndex Lib "time2win.dll" (Ctl As Control) As Integer
  638. Declare Function cGetCtlName Lib "time2win.dll" (Ctl As Control) As String
  639. Declare Function cGetCtlNameIndex Lib "time2win.dll" (Ctl As Control) As String
  640. Declare Function cGetCtlPropCaption Lib "time2win.dll" (Ctl As Control) As Integer
  641. Declare Function cGetCtlPropDataField Lib "time2win.dll" (Ctl As Control) As Integer
  642. Declare Function cGetCtlPropText Lib "time2win.dll" (Ctl As Control) As Integer
  643. Declare Sub cGetCtlRect Lib "time2win.dll" (Ctl As Control, RECT As Any)
  644. Declare Sub cGetCtlRectTwips Lib "time2win.dll" (Ctl As Control, RECT As Any)
  645. Declare Function cGetCtlTag Lib "time2win.dll" (Ctl As Control) As String
  646. Declare Function cGetCtlTagSized Lib "time2win.dll" (Ctl As Control) As String
  647. Declare Function cGetCtlText Lib "time2win.dll" (Ctl As Control) As String
  648. Declare Function cGetCurrency Lib "time2win.dll" () As String
  649. Declare Function cGetCurrentDrive Lib "time2win.dll" () As String
  650. Declare Function cGetDataField Lib "time2win.dll" (ByVal hWnd As Integer) As String
  651. Declare Function cGetDateFormat Lib "time2win.dll" () As String
  652. Declare Function cGetDateSeparator Lib "time2win.dll" () As String
  653. Declare Function cGetDefaultCurrentDir Lib "time2win.dll" () As String
  654. Declare Function cGetDefaultPrinter Lib "time2win.dll" () As String
  655. Declare Function cGetDevices Lib "time2win.dll" () As String
  656. Declare Function cGetDiskClusterSize Lib "time2win.dll" (ByVal lpDrive As String) As Long
  657. Declare Function cGetDiskFree Lib "time2win.dll" (ByVal lpDrive As String) As Long
  658. Declare Function cGetDiskSpace Lib "time2win.dll" (ByVal lpDrive As String) As Long
  659. Declare Function cGetDiskUsed Lib "time2win.dll" (ByVal lpDrive As String) As Long
  660. Declare Function cGetDriveCurrentDir Lib "time2win.dll" (ByVal lpDrive As String) As String
  661. Declare Function cGetDriveType Lib "time2win.dll" (ByVal lpDrive As String) As Integer
  662. Declare Function cGetFileVersion Lib "time2win.dll" (ByVal FileName As String, ByVal nFonction As Integer) As String
  663. Declare Function cGetFileVersionInfo Lib "time2win.dll" (ByVal FileName As String, FILEVERSIONINFO As Any) As Integer
  664. Declare Function cGetForm Lib "time2win.dll" (ByVal hWnd As Integer) As String
  665. Declare Function cGetFullNameInEnv Lib "time2win.dll" (ByVal lpFilename As String, ByVal lpEnv As String) As String
  666. Declare Function cGetFullNameInPath Lib "time2win.dll" (ByVal lpFilename As String) As String
  667. Declare Function cGetHourFormat Lib "time2win.dll" () As String
  668. Declare Function cGetHwnd Lib "time2win.dll" (Ctl As Control) As Integer
  669. Declare Function cGetIn Lib "time2win.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  670. Declare Function cGetIndex Lib "time2win.dll" (ByVal hWnd As Integer) As Integer
  671. Declare Function cGetIni Lib "time2win.dll" (ByVal AppName As String, ByVal szItem As String, ByVal szDefault As String, ByVal InitFile As String) As String
  672. Declare Function cGetInPart Lib "time2win.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  673. Declare Function cGetInPartR Lib "time2win.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  674. Declare Function cGetInR Lib "time2win.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  675. Declare Function cGetLanguage Lib "time2win.dll" () As String
  676. Declare Function cGetListSeparator Lib "time2win.dll" () As String
  677. Declare Function cGetLongDay Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal nDay As Integer) As String
  678. Declare Function cGetLongMonth Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal nMonth As Integer) As String
  679. Declare Function cGetName Lib "time2win.dll" (ByVal hWnd As Integer) As String
  680. Declare Function cGetNameIndex Lib "time2win.dll" (ByVal hWnd As Integer) As String
  681. Declare Function cGetNetConnection Lib "time2win.dll" (ByVal lpDrive As String, ErrCode As Integer) As String
  682. Declare Function cGetPid Lib "time2win.dll" () As Integer
  683. Declare Function cGetPrinterPorts Lib "time2win.dll" () As String
  684. Declare Function cGetSectionItems Lib "time2win.dll" (ByVal Section As String, ByVal InitFile As String, nItems As Integer) As String
  685. Declare Function cGetShortDay Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal nDay As Integer) As String
  686. Declare Function cGetShortMonth Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal nMonth As Integer) As String
  687. Declare Function cGetSmallDay Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal nDay As Integer) As String
  688. Declare Function cGetSystemDirectory Lib "time2win.dll" () As String
  689. Declare Function cGetTag Lib "time2win.dll" (ByVal hWnd As Integer) As String
  690. Declare Function cGetTagSized Lib "time2win.dll" (ByVal hWnd As Integer, ByVal nSize As Integer) As String
  691. Declare Function cGetTaskName Lib "time2win.dll" (ByVal hWnd As Integer) As String
  692. Declare Function cGetText Lib "time2win.dll" (ByVal hWnd As Integer) As String
  693. Declare Function cGetTimeSeparator Lib "time2win.dll" () As String
  694. Declare Function cGetTinyDay Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal nDay As Integer) As String
  695. Declare Function cGetTinyMonth Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal nMonth As Integer) As String
  696. Declare Function cGetVersion Lib "time2win.dll" () As Single
  697. Declare Function cGetWindowsDirectory Lib "time2win.dll" () As String
  698. Declare Function cGetWinINI Lib "time2win.dll" (ByVal Info As Integer) As String
  699. Declare Function cGetWinSection Lib "time2win.dll" (ByVal Section As String) As String
  700. Declare Function cGiveBitPalindrome Lib "time2win.dll" () As String
  701. Declare Function cHideAllEditForm Lib "time2win.dll" () As Integer
  702. Declare Function cHideDebugForm Lib "time2win.dll" () As Integer
  703. Declare Function cHourTo Lib "time2win.dll" (Txt As String) As Variant
  704. Declare Function cIfInStr Lib "time2win.dll" (Txt As String, Operator As String) As String
  705. Declare Sub cIncrI Lib "time2win.dll" (Value As Integer)
  706. Declare Sub cIncrL Lib "time2win.dll" (Value As Long)
  707. Declare Function cInsertBlocks Lib "time2win.dll" (Txt As String, Insert As String) As String
  708. Declare Function cInsertBlocksBy Lib "time2win.dll" (Txt As String, Insert As String, Delimitor As String) As String
  709. Declare Function cInsertByMask Lib "time2win.dll" (Txt As String, Mask As String, Insert As String) As String
  710. Declare Function cInsertChars Lib "time2win.dll" (Txt As String, ByVal Position As Integer, Insert As String) As String
  711. Declare Function cIntoBalance Lib "time2win.dll" (Var As Variant) As String
  712. Declare Function cIntoBalanceFill Lib "time2win.dll" (Var As Variant) As String
  713. Declare Function cIntoDate Lib "time2win.dll" (ByVal nDate As Long) As String
  714. Declare Function cIntoDateFill Lib "time2win.dll" (ByVal nDate As Long) As String
  715. Declare Function cIntoDateNull Lib "time2win.dll" (ByVal nDate As Long) As String
  716. Declare Function cIntoFixHour Lib "time2win.dll" (Var As Variant, ByVal Length As Integer, ByVal fillZero As Integer, ByVal CentiΦme As Integer) As String
  717. Declare Function cIntoHour Lib "time2win.dll" (Var As Variant) As String
  718. Declare Function cIntoVarHour Lib "time2win.dll" (Var As Variant) As String
  719. Declare Function cIsAlnum Lib "time2win.dll" (Txt As String) As Integer
  720. Declare Function cIsAlpha Lib "time2win.dll" (Txt As String) As Integer
  721. Declare Function cIsAscii Lib "time2win.dll" (Txt As String) As Integer
  722. Declare Function cIsBalance Lib "time2win.dll" (ByVal nHour As Long, ByVal nMinute As Integer, ByVal nSecond As Integer) As Integer
  723. Declare Function cIsBitPalindrome Lib "time2win.dll" (Txt As String) As Integer
  724. Declare Function cIsCsym Lib "time2win.dll" (Txt As String) As Integer
  725. Declare Function cIsCsymf Lib "time2win.dll" (Txt As String) As Integer
  726. Declare Function cIsDate Lib "time2win.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer) As Integer
  727. Declare Function cIsDigit Lib "time2win.dll" (Txt As String) As Integer
  728. Declare Function cIsFileArchive Lib "time2win.dll" (ByVal nFilename As String) As Integer
  729. Declare Function cIsFileEmpty Lib "time2win.dll" (ByVal nFilename As String) As Integer
  730. Declare Function cIsFileFlag Lib "time2win.dll" (ByVal nFilename As String, ByVal nStatus As Integer) As Integer
  731. Declare Function cIsFileHidden Lib "time2win.dll" (ByVal nFilename As String) As Integer
  732. Declare Function cIsFileNormal Lib "time2win.dll" (ByVal nFilename As String) As Integer
  733. Declare Function cIsFilenameValid Lib "time2win.dll" (ByVal nFilename As String) As Integer
  734. Declare Function cIsFileReadOnly Lib "time2win.dll" (ByVal nFilename As String) As Integer
  735. Declare Function cIsFileSubDir Lib "time2win.dll" (ByVal nFilename As String) As Integer
  736. Declare Function cIsFileSystem Lib "time2win.dll" (ByVal nFilename As String) As Integer
  737. Declare Function cIsFileVolId Lib "time2win.dll" (ByVal nFilename As String) As Integer
  738. Declare Function cIsFormEnabled Lib "time2win.dll" (ByVal hWnd As Integer) As Integer
  739. Declare Function cIsHour Lib "time2win.dll" (ByVal nHour As Integer, ByVal nMinute As Integer, ByVal nSecond As Integer) As Integer
  740. Declare Function cIsISBN Lib "time2win.dll" (Txt As String) As Integer
  741. Declare Function cIsLeapYear Lib "time2win.dll" (ByVal nYear As Integer) As Integer
  742. Declare Function cIsLower Lib "time2win.dll" (Txt As String) As Integer
  743. Declare Function cIsPalindrome Lib "time2win.dll" (Txt As String) As Integer
  744. Declare Function cIsPunct Lib "time2win.dll" (Txt As String) As Integer
  745. Declare Function cIsSerial Lib "time2win.dll" (ByVal file1 As String) As Integer
  746. Declare Function cIsSpace Lib "time2win.dll" (Txt As String) As Integer
  747. Declare Function cIsUpper Lib "time2win.dll" (Txt As String) As Integer
  748. Declare Function cIsXdigit Lib "time2win.dll" (Txt As String) As Integer
  749. Declare Function cKillDir Lib "time2win.dll" (ByVal lpFilename As String) As Integer
  750. Declare Function cKillDirFilesAll Lib "time2win.dll" (ByVal lpDir As String, ByVal lpMask As String) As Integer
  751. Declare Function cKillDirs Lib "time2win.dll" (ByVal lpDir As String, ByVal HeaderDirectory As Integer) As Integer
  752. Declare Function cKillFile Lib "time2win.dll" (ByVal lpFilename As String) As Integer
  753. Declare Function cKillFileAll Lib "time2win.dll" (ByVal lpFilename As String) As Integer
  754. Declare Function cKillFiles Lib "time2win.dll" (ByVal lpFilename As String) As Integer
  755. Declare Function cKillFilesAll Lib "time2win.dll" (ByVal lpFilename As String) As Integer
  756. Declare Sub cKillFocus Lib "time2win.dll" (ByVal hWnd As Integer)
  757. Declare Function cLngMsgBox Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal Message As String, ByVal Button As Long, ByVal Title As String) As Integer
  758. Declare Sub cLngBoxMsg Lib "time2win.dll" Alias "cLngMsgBox" (ByVal nLanguage As Integer, ByVal Message As String, ByVal Button As Long, ByVal Title As String)
  759. Declare Function cLngInpBox Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal Message As String, ByVal Title As String, ByVal Default As String) As String
  760. Declare Sub cLngSysMenu Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal hWnd As Integer)
  761. Declare Function cLockEventI Lib "time2win.dll" (Ctl As Control) As Integer
  762. Declare Function cLrc Lib "time2win.dll" (Txt As String) As String
  763. Declare Function cMakeDir Lib "time2win.dll" (ByVal lpFilename As String) As Integer
  764. Declare Function cMakeMultipleDir Lib "time2win.dll" (ByVal lpFilename As String) As Integer
  765. Declare Function cMakePath Lib "time2win.dll" (ByVal nDrive As String, ByVal nDir As String, ByVal nFilename As String, ByVal Ext As String) As String
  766. Declare Sub cMatrixAdd Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayB() As Double, ArrayC() As Double)
  767. Declare Function cMatrixCoFactor Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double, ByVal Row As Integer, ByVal Col As Integer) As Double
  768. Declare Function cMatrixCompare Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double) As Integer
  769. Declare Sub cMatrixCopy Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double)
  770. Declare Function cMatrixDet Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double) As Double
  771. Declare Function cMatrixFill Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double, ByVal nInit As Integer) As Integer
  772. Declare Function cMatrixInv Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double) As Integer
  773. Declare Function cMatrixMinor Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double, ByVal Row As Integer, ByVal Col As Integer) As Double
  774. Declare Sub cMatrixMul Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayB() As Double, ArrayC() As Double)
  775. Declare Sub cMatrixSub Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayB() As Double, ArrayC() As Double)
  776. Declare Function cMatrixSymToeplitz Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double) As Integer
  777. Declare Sub cMatrixTranspose Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double)
  778. Declare Function cMax Lib "time2win.dll" (Var1 As Variant, Var2 As Variant) As Variant
  779. Declare Function cMaxD Lib "time2win.dll" (array() As Double) As Double
  780. Declare Function cMaxI Lib "time2win.dll" (array() As Integer) As Integer
  781. Declare Function cMaxL Lib "time2win.dll" (array() As Long) As Long
  782. Declare Function cMaxS Lib "time2win.dll" (array() As Single) As Single
  783. Declare Function cMDAClear Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY) As Integer
  784. Declare Function cMDAClearCol Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, ByVal sheet As Long) As Integer
  785. Declare Function cMDAClearRow Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal sheet As Long) As Integer
  786. Declare Function cMDAClearSheet Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal sheet As Long) As Integer
  787. Declare Sub cMDAClose Lib "time2win.dll" (MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal DeleteFile As Integer)
  788. Declare Function cMDACreate Lib "time2win.dll" (MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal CreateOrUse As Integer) As Integer
  789. Declare Function cMDAGet Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long) As Variant
  790. Declare Sub cMDAGetType Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  791. Declare Sub cMDAPut Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, Var As Variant)
  792. Declare Sub cMDAPutType Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  793. Declare Sub cMDArGet Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, Var As Variant)
  794. Declare Sub cMDArGetType Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, nType As Any)
  795. Declare Sub cMDArPut Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, Var As Variant)
  796. Declare Sub cMDArPutType Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, nType As Any)
  797. Declare Function cMDAsClearCol Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long) As Integer
  798. Declare Function cMDAsClearRow Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long) As Integer
  799. Declare Sub cMDAsGet Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  800. Declare Sub cMDAsGetType Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, nType As Any)
  801. Declare Sub cMDAsPut Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  802. Declare Sub cMDAsPutType Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, nType As Any)
  803. Declare Function cMeanD Lib "time2win.dll" (array() As Double) As Double
  804. Declare Function cMeanI Lib "time2win.dll" (array() As Integer) As Double
  805. Declare Function cMeanL Lib "time2win.dll" (array() As Long) As Double
  806. Declare Function cMeanS Lib "time2win.dll" (array() As Single) As Double
  807. Declare Function cMin Lib "time2win.dll" (Var1 As Variant, Var2 As Variant) As Variant
  808. Declare Function cMinD Lib "time2win.dll" (array() As Double) As Double
  809. Declare Function cMinI Lib "time2win.dll" (array() As Integer) As Integer
  810. Declare Function cMinL Lib "time2win.dll" (array() As Long) As Long
  811. Declare Function cMinS Lib "time2win.dll" (array() As Single) As Single
  812. Declare Function cMixChars Lib "time2win.dll" (Txt As String) As String
  813. Declare Function cMKB Lib "time2win.dll" (ByVal Value As Integer) As String
  814. Declare Function cMKC Lib "time2win.dll" (ByVal Value As Currency) As String
  815. Declare Function cMKD Lib "time2win.dll" (ByVal Value As Double) As String
  816. Declare Function cMKI Lib "time2win.dll" (ByVal Value As Integer) As String
  817. Declare Function cMKL Lib "time2win.dll" (ByVal Value As Long) As String
  818. Declare Function cMKN Lib "time2win.dll" (ByVal Value As String) As String
  819. Declare Function cMKS Lib "time2win.dll" (ByVal Value As Single) As String
  820. Declare Function cModuleFind Lib "time2win.dll" (MODULEENTRY As Any, ByVal ModuleName As String) As Integer
  821. Declare Function cModules Lib "time2win.dll" (MODULEENTRY As Any, ByVal FirstNext As Integer) As Integer
  822. Declare Function cMorse Lib "time2win.dll" (ByVal morse As String) As String
  823. Declare Function cNexthWnd Lib "time2win.dll" (ByVal hWnd As Integer) As Integer
  824. Declare Function cNumDigit Lib "time2win.dll" (Txt As String) As Integer
  825. Declare Function cOneCharFromLeft Lib "time2win.dll" (Txt As String, ByVal Position As Integer) As String
  826. Declare Function cOneCharFromRight Lib "time2win.dll" (Txt As String, ByVal Position As Integer) As String
  827. Declare Function cOrToken Lib "time2win.dll" (ByVal Txt As String, ByVal Token As String) As Integer
  828. Declare Function cOrTokenIn Lib "time2win.dll" (ByVal Txt As String, ByVal Token As String, ByVal Separator As String) As Integer
  829. Declare Function cPatternMatch Lib "time2win.dll" (ByVal Txt As String, ByVal pattern As String) As Integer
  830. Declare Function cPatternExtMatch Lib "time2win.dll" (ByVal Txt As String, ByVal pattern As String) As Integer
  831. Declare Function cProperName Lib "time2win.dll" (Txt As String) As String
  832. Declare Function cProperName2 Lib "time2win.dll" (Txt As String, ByVal TokenToUse As String, ByVal Options As Integer) As String
  833. Declare Sub cPutIni Lib "time2win.dll" (ByVal AppName As String, ByVal szItem As String, ByVal szDefault As String, ByVal InitFile As String)
  834. Declare Function cRcsCountFileDir Lib "time2win.dll" (ByVal FileOrDir As Integer, ByVal FirstFileOrDir As String, ByVal MaskDir As String, ByVal Recurse As Integer) As Integer
  835. Declare Function cRcsFilesSize Lib "time2win.dll" (ByVal FirstDir As String, ByVal MaskDir As String, ByVal Recurse As Integer) As Long
  836. Declare Function cRcsFilesSizeOnDisk Lib "time2win.dll" (ByVal FirstDir As String, ByVal MaskDir As String, ByVal Recurse As Integer) As Long
  837. Declare Function cRcsFilesSlack Lib "time2win.dll" (ByVal FirstDir As String, ByVal MaskDir As String, ByVal Recurse As Integer, Size1 As Long, Size2 As Long) As Integer
  838. Declare Function cReadBasisTimer Lib "time2win.dll" () As Long
  839. Declare Function cReadCtlLanguage Lib "time2win.dll" (Ctl As Control, ByVal Property As Integer, ByVal FileLanguage As String) As Integer
  840. Declare Function cReadCtlLanguageExt Lib "time2win.dll" (Ctl As Control, ByVal Property As Integer, ByVal FileLanguage As String) As Integer
  841. Declare Function cReadMnuLanguage Lib "time2win.dll" (Ctl As Control, ByVal FileLanguage As String) As Integer
  842. Declare Function cReadMnuLanguageExt Lib "time2win.dll" (Ctl As Control, ByVal FileLanguage As String) As Integer
  843. Declare Function cReadTimer Lib "time2win.dll" (ByVal nTimer As Integer) As Long
  844. Declare Function cRebootSystem Lib "time2win.dll" () As Integer
  845. Declare Function cRegistrationKey Lib "time2win.dll" (ByVal RegString As String, ByVal RegCode As Long) As Long
  846. Declare Function cRemoveBlockChar Lib "time2win.dll" (Txt As String, ByVal Position As Integer, ByVal Length As Integer) As String
  847. Declare Function cRemoveOneChar Lib "time2win.dll" (Txt As String, ByVal Position As Integer) As String
  848. Declare Function cRenameFile Lib "time2win.dll" (ByVal lpFilename1 As String, ByVal lpFilename2 As String) As Integer
  849. Declare Sub cResetCapture Lib "time2win.dll" ()
  850. Declare Sub cResetFocus Lib "time2win.dll" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer)
  851. Declare Function cResizeString Lib "time2win.dll" (Txt As String, ByVal NewLength As Integer) As String
  852. Declare Function cResizeStringAndFill Lib "time2win.dll" (Txt As String, ByVal NewLength As Integer, Fill As String) As String
  853. Declare Function cRestartWindows Lib "time2win.dll" () As Integer
  854. Declare Function cReverse Lib "time2win.dll" (Txt As String) As String
  855. Declare Sub cReverseAllBits Lib "time2win.dll" (Txt As String)
  856. Declare Sub cReverseAllBitsByChar Lib "time2win.dll" (Txt As String)
  857. Declare Function cReverseSortD Lib "time2win.dll" (array() As Double) As Integer
  858. Declare Function cReverseSortI Lib "time2win.dll" (array() As Integer) As Integer
  859. Declare Function cReverseSortL Lib "time2win.dll" (array() As Long) As Integer
  860. Declare Function cReverseSortS Lib "time2win.dll" (array() As Single) As Integer
  861. Declare Function cReverseSortStr Lib "time2win.dll" (Txt As String, ByVal nItem As Integer, ByVal ItemLength As Integer) As Integer
  862. Declare Sub cRndInit Lib "time2win.dll" (ByVal nRnd As Long)
  863. Declare Function cRnd Lib "time2win.dll" () As Double
  864. Declare Function cRndD Lib "time2win.dll" () As Double
  865. Declare Function cRndI Lib "time2win.dll" () As Integer
  866. Declare Function cRndL Lib "time2win.dll" () As Long
  867. Declare Function cRndS Lib "time2win.dll" () As Single
  868. Declare Function cRomanToArabic Lib "time2win.dll" (Txt As String) As Variant
  869. Declare Function cSaveCtlLanguage Lib "time2win.dll" (Ctl As Control, ByVal Property As Integer, ByVal FileLanguage As String) As Integer
  870. Declare Function cSaveCtlLanguageExt Lib "time2win.dll" (Ctl As Control, ByVal Property As Integer, ByVal FileLanguage As String) As Integer
  871. Declare Function cSaveMnuLanguage Lib "time2win.dll" (Ctl As Control, ByVal FileLanguage As String) As Integer
  872. Declare Function cSaveMnuLanguageExt Lib "time2win.dll" (Ctl As Control, ByVal FileLanguage As String) As Integer
  873. Declare Sub cScalarToDate Lib "time2win.dll" (ByVal Scalar As Long, nYear As Integer, nMonth As Integer, nDay As Integer)
  874. Declare Sub cScalarToTime Lib "time2win.dll" (ByVal Scalar As Long, nHour As Integer, nMin As Integer, nSec As Integer)
  875. Declare Function cScrollL Lib "time2win.dll" (Txt As String) As String
  876. Declare Function cScrollR Lib "time2win.dll" (Txt As String) As String
  877. Declare Function cSearchI Lib "time2win.dll" (array() As Integer, ByVal Value As Integer) As Long
  878. Declare Function cSearchL Lib "time2win.dll" (array() As Long, ByVal Value As Long) As Long
  879. Declare Function cSearchS Lib "time2win.dll" (array() As Single, ByVal Value As Single) As Long
  880. Declare Function cSearchD Lib "time2win.dll" (array() As Double, ByVal Value As Double) As Long
  881. Declare Sub cSetAllBits Lib "time2win.dll" (Txt As String, ByVal Value As Integer)
  882. Declare Sub cSetBit Lib "time2win.dll" (Txt As String, ByVal Position As Integer, ByVal Value As Integer)
  883. Declare Sub cSetBitToFalse Lib "time2win.dll" (Txt As String, ByVal Position As Integer)
  884. Declare Sub cSetBitToTrue Lib "time2win.dll" (Txt As String, ByVal Position As Integer)
  885. Declare Sub cSetCaption Lib "time2win.dll" (ByVal hWnd As Integer, ByVal Text As String)
  886. Declare Sub cSetCapture Lib "time2win.dll" (ByVal hWnd As Integer)
  887. Declare Sub cSetCtlCaption Lib "time2win.dll" (Ctl As Control, ByVal Text As String)
  888. Declare Sub cSetCtlDataField Lib "time2win.dll" (Ctl As Control, ByVal Text As String)
  889. Declare Sub cSetCtlFocus Lib "time2win.dll" (Ctl As Control)
  890. Declare Sub cSetCtlPropString Lib "time2win.dll" (Ctl As Control, ByVal PropIndex As Integer, ByVal Text As String)
  891. Declare Sub cSetCtlTag Lib "time2win.dll" (Ctl As Control, ByVal Text As String)
  892. Declare Sub cSetCtlText Lib "time2win.dll" (Ctl As Control, ByVal Text As String)
  893. Declare Function cSetD Lib "time2win.dll" (array() As Double, ByVal nValue As Double) As Integer
  894. Declare Sub cSetDataField Lib "time2win.dll" (ByVal hWnd As Integer, ByVal Text As String)
  895. Declare Sub cSetDefaultSeparator Lib "time2win.dll" (Separator As String)
  896. Declare Sub cSetFocus Lib "time2win.dll" (ByVal hWnd As Integer)
  897. Declare Function cSetHandleCount Lib "time2win.dll" (ByVal nHandle As Integer) As Integer
  898. Declare Function cSetI Lib "time2win.dll" (array() As Integer, ByVal nValue As Integer) As Integer
  899. Declare Function cSetL Lib "time2win.dll" (array() As Long, ByVal nValue As Long) As Integer
  900. Declare Function cSerialGet Lib "time2win.dll" (ByVal file As String, SERIALDATA As tagSERIALDATA) As Integer
  901. Declare Function cSerialInc Lib "time2win.dll" (ByVal file As String, ByVal Increment As Long) As Integer
  902. Declare Function cSerialPut Lib "time2win.dll" (ByVal file As String, SERIALDATA As tagSERIALDATA) As Integer
  903. Declare Function cSetS Lib "time2win.dll" (array() As Single, ByVal nValue As Single) As Integer
  904. Declare Sub cSetTag Lib "time2win.dll" (ByVal hWnd As Integer, ByVal Text As String)
  905. Declare Sub cSetText Lib "time2win.dll" (ByVal hWnd As Integer, ByVal Text As String)
  906. Declare Sub cSetWait Lib "time2win.dll" (ByVal nTimer As Integer, ByVal nValue As Long)
  907. Declare Function cSgn Lib "time2win.dll" (ByVal Value As Integer) As Integer
  908. Declare Sub cShowWindow Lib "time2win.dll" (ByVal hWnd As Integer, ByVal Method As Integer, ByVal interval As Integer)
  909. Declare Function cSleep Lib "time2win.dll" (ByVal delay As Long) As Integer
  910. Declare Function cSortD Lib "time2win.dll" (array() As Double) As Integer
  911. Declare Function cSortI Lib "time2win.dll" (array() As Integer) As Integer
  912. Declare Function cSortL Lib "time2win.dll" (array() As Long) As Integer
  913. Declare Function cSortS Lib "time2win.dll" (array() As Single) As Integer
  914. Declare Function cSortStr Lib "time2win.dll" (Txt As String, ByVal nItem As Integer, ByVal ItemLength As Integer) As Integer
  915. Declare Function cSpellMoney Lib "time2win.dll" (ByVal Value As Double, ByVal Units As String, ByVal Cents As String) As String
  916. Declare Function cSplitPath Lib "time2win.dll" (ByVal nFilename As String, SPLITPATH As Any) As Integer
  917. Declare Sub cStartBasisTimer Lib "time2win.dll" ()
  918. Declare Sub cStartTimer Lib "time2win.dll" (ByVal nTimer As Integer)
  919. Declare Sub cStartWait Lib "time2win.dll" (ByVal nTimer As Integer)
  920. Declare Sub cStopBasisTimer Lib "time2win.dll" ()
  921. Declare Function cStopTimer Lib "time2win.dll" (ByVal nTimer As Integer) As Long
  922. Declare Function cStringCompress Lib "time2win.dll" (Txt As String) As String
  923. Declare Function cStringCRC32 Lib "time2win.dll" (Txt As String) As Long
  924. Declare Function cStringExpand Lib "time2win.dll" (Txt As String) As String
  925. Declare Function cStringSAR Lib "time2win.dll" (ByVal Txt As String, ByVal Search As String, ByVal Replace As String, ByVal Sensitivity As Integer) As String
  926. Declare Sub cStringToType Lib "time2win.dll" Alias "cTypesCopy" (ByVal Src As String, TypeDst As Any, ByVal lenTypeSrc As Integer)
  927. Declare Function cSubDirectory Lib "time2win.dll" (ByVal nFilename As String, ByVal FirstNext As Integer) As String
  928. Declare Function cSumD Lib "time2win.dll" (array() As Double) As Double
  929. Declare Function cSumI Lib "time2win.dll" (array() As Integer) As Double
  930. Declare Function cSumL Lib "time2win.dll" (array() As Long) As Double
  931. Declare Function cSumS Lib "time2win.dll" (array() As Single) As Double
  932. Declare Sub cSysMenuChange Lib "time2win.dll" (ByVal hWnd As Integer, ByVal Position As Integer, ByVal NewMessage As String)
  933. Declare Sub cSwapD Lib "time2win.dll" (swap1 As Double, swap2 As Double)
  934. Declare Sub cSwapI Lib "time2win.dll" (swap1 As Integer, swap2 As Integer)
  935. Declare Sub cSwapL Lib "time2win.dll" (swap1 As Long, swap2 As Long)
  936. Declare Sub cSwapS Lib "time2win.dll" (swap1 As Single, swap2 As Single)
  937. Declare Sub cSwapStr Lib "time2win.dll" (swap1 As String, swap2 As String)
  938. Declare Function cTaskFind Lib "time2win.dll" (TASKENTRY As Any, ByVal hTask As Integer) As Integer
  939. Declare Function cTasks Lib "time2win.dll" (TASKENTRY As Any, ByVal FirstNext As Integer) As Integer
  940. Declare Function cTimeBetween Lib "time2win.dll" (ByVal Hr1 As Integer, ByVal Hr2 As Integer) As Integer
  941. Declare Function cTimerClose Lib "time2win.dll" (ByVal TimerHandle As Integer) As Integer
  942. Declare Function cTimerOpen Lib "time2win.dll" () As Integer
  943. Declare Function cTimerRead Lib "time2win.dll" (ByVal TimerHandle As Integer) As Long
  944. Declare Function cTimerStart Lib "time2win.dll" (ByVal TimerHandle As Integer) As Integer
  945. Declare Function cTimeToScalar Lib "time2win.dll" (ByVal nHour As Integer, ByVal nMin As Integer, ByVal nSec As Integer) As Long
  946. Declare Function cToBinary Lib "time2win.dll" (Text As String) As String
  947. Declare Function cToBinary2 Lib "time2win.dll" (Text As String, Bin As String) As String
  948. Declare Sub cToggleAllBits Lib "time2win.dll" (Txt As String)
  949. Declare Sub cToggleBit Lib "time2win.dll" (Txt As String, ByVal Position As Integer)
  950. Declare Function cToHexa Lib "time2win.dll" (Text As String) As String
  951. Declare Function cTokenIn Lib "time2win.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  952. Declare Function cTrueBetween Lib "time2win.dll" (Var As Variant, Var1 As Variant, Var2 As Variant) As Integer
  953. Declare Function cTruncatePath Lib "time2win.dll" (ByVal nFilename As String, ByVal NewLength As Integer) As String
  954. Declare Sub cTypeClear Lib "time2win.dll" (TypeSrc As Any, ByVal lenTypeSrc As Integer)
  955. Declare Function cTypeMid Lib "time2win.dll" (TypeSrc As Any, ByVal offset As Integer, ByVal Length As Integer) As String
  956. Declare Function cTypesCompare Lib "time2win.dll" (Type1 As Any, Type2 As Any, ByVal lenType1 As Integer) As Integer
  957. Declare Sub cTypesCopy Lib "time2win.dll" (TypeSrc As Any, TypeDst As Any, ByVal lenTypeSrc As Integer)
  958. Declare Function cTypeTransfert Lib "time2win.dll" (TypeSrc As Any, ByVal lenTypeSrc As Integer) As String
  959. Declare Sub cTypeToString Lib "time2win.dll" Alias "cTypesCopy" (TypeSrc As Any, ByVal Dst As String, ByVal lenTypeSrc As Integer)
  960. Declare Function cUncompact Lib "time2win.dll" (Txt As String) As String
  961. Declare Function cUnHideAllEditForm Lib "time2win.dll" () As Integer
  962. Declare Function cUnHideDebugForm Lib "time2win.dll" () As Integer
  963. Declare Function cUniqueFileName Lib "time2win.dll" (Txt As String) As String
  964. Declare Sub cUnloadDLL Lib "time2win.dll" (ByVal hMod As Integer)
  965. Declare Sub cUnlockEventI Lib "time2win.dll" (Ctl As Control)
  966. Declare Function cWalkThruWindow Lib "time2win.dll" (Class As String, Caption As String, OwnerHwnd As Integer, OwnerClass As String, OwnerCaption As String, ByVal FirstNext As Integer) As Integer
  967. Declare Function cWeekOfYear Lib "time2win.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer, ByVal nISO As Integer) As Integer
  968.  
  969. Declare Sub cPushID Lib "time2win.dll" (IDArray As Integer, ByVal nID As Integer)
  970. Declare Sub cPopID Lib "time2win.dll" (IDArray As Integer, ByVal nID As Integer)
  971. Declare Sub cPopLastID Lib "time2win.dll" (IDArray As Integer)
  972. Declare Function cGetID Lib "time2win.dll" (IDArray As Integer, ByVal nPosition As Integer) As Integer
  973. Declare Sub cClearID Lib "time2win.dll" (IDArray As Integer)
  974.  
  975. ' File I/O, direct routines issued from C functionnalities
  976. Declare Function cFopen Lib "time2win.dll" (ByVal file As String, ByVal Mode As String) As Long
  977. Declare Function cFclose Lib "time2win.dll" (ByVal IOstream As Long) As Integer
  978. Declare Function cFgetc Lib "time2win.dll" (ByVal IOstream As Long) As Integer
  979. Declare Function cFputc Lib "time2win.dll" (ByVal char As Integer, ByVal IOstream As Long) As Integer
  980. Declare Function cFputs Lib "time2win.dll" (ByVal Txt As String, ByVal IOstream As Long) As Integer
  981. Declare Function cFgets Lib "time2win.dll" (Txt As String, ByVal Length As Integer, ByVal IOstream As Long) As Integer
  982. Declare Function cFwrite Lib "time2win.dll" (Txt As String, ByVal IOstream As Long) As Integer
  983. Declare Function cFread Lib "time2win.dll" (Txt As String, ByVal Length As Integer, ByVal IOstream As Long) As Integer
  984. Declare Function cFcloseall Lib "time2win.dll" () As Integer
  985. Declare Function cFflush Lib "time2win.dll" (ByVal IOstream As Long) As Integer
  986. Declare Function cFflushall Lib "time2win.dll" () As Integer
  987. Declare Function cFeof Lib "time2win.dll" (ByVal IOstream As Long) As Integer
  988. Declare Function cFerror Lib "time2win.dll" (ByVal IOstream As Long) As Integer
  989. Declare Sub cFclearerr Lib "time2win.dll" (ByVal IOstream As Long)
  990. Declare Function cFseek Lib "time2win.dll" (ByVal IOstream As Long, ByVal offset As Long, ByVal origin As Integer) As Integer
  991. Declare Function cFtell Lib "time2win.dll" (ByVal IOstream As Long) As Long
  992. Declare Sub cFrewind Lib "time2win.dll" (ByVal IOstream As Long)
  993.  
  994. ' Functions for calculating interest rate
  995. Declare Function cAtoF Lib "time2win.dll" (ByVal Interest As Double, ByVal N As Integer) As Double
  996. Declare Function cAtoFC Lib "time2win.dll" (ByVal Rates As Double, ByVal N As Integer) As Double
  997. Declare Function cAtoP Lib "time2win.dll" (ByVal Interest As Double, ByVal N As Integer) As Double
  998. Declare Function cAtoPC Lib "time2win.dll" (ByVal Rates As Double, ByVal N As Integer) As Double
  999. Declare Function cFtoA Lib "time2win.dll" (ByVal Interest As Double, ByVal N As Integer) As Double
  1000. Declare Function cFtoAC Lib "time2win.dll" (ByVal Rates As Double, ByVal N As Integer) As Double
  1001. Declare Function cFtoP Lib "time2win.dll" (ByVal Interest As Double, ByVal N As Integer) As Double
  1002. Declare Function cFtoPC Lib "time2win.dll" (ByVal Rates As Double, ByVal N As Integer) As Double
  1003. Declare Function cPtoA Lib "time2win.dll" (ByVal Interest As Double, ByVal N As Integer) As Double
  1004. Declare Function cPtoAC Lib "time2win.dll" (ByVal Rates As Double, ByVal N As Integer) As Double
  1005. Declare Function cPtoF Lib "time2win.dll" (ByVal Interest As Double, ByVal N As Integer) As Double
  1006. Declare Function cPtoFC Lib "time2win.dll" (ByVal Rates As Double, ByVal N As Integer) As Double
  1007.  
  1008. ' Functions for calculating 2-D geometry
  1009. Declare Sub cV2Add Lib "time2win.dll" (u As tagVECTOR2, v As tagVECTOR2, w As tagVECTOR2)
  1010. Declare Sub cV2Sub Lib "time2win.dll" (u As tagVECTOR2, v As tagVECTOR2, w As tagVECTOR2)
  1011. Declare Sub cV2Combine Lib "time2win.dll" (u As tagVECTOR2, ByVal c1 As Double, v As tagVECTOR2, ByVal c2 As Double, w As tagVECTOR2)
  1012. Declare Sub cV2Copy Lib "time2win.dll" (u As tagVECTOR2, w As tagVECTOR2)
  1013. Declare Function cV2Dot Lib "time2win.dll" (u As tagVECTOR2, v As tagVECTOR2) As Double
  1014. Declare Function cV2Length Lib "time2win.dll" (u As tagVECTOR2) As Double
  1015. Declare Function cV2LengthSquared Lib "time2win.dll" (u As tagVECTOR2) As Double
  1016. Declare Sub cV2LinearIp Lib "time2win.dll" (lo As tagVECTOR2, hi As tagVECTOR2, ByVal alpha As Double, w As tagVECTOR2)
  1017. Declare Sub cV2Mul Lib "time2win.dll" (u As tagVECTOR2, v As tagVECTOR2, w As tagVECTOR2)
  1018. Declare Sub cV2Neg Lib "time2win.dll" (u As tagVECTOR2)
  1019. Declare Sub cV2Normalized Lib "time2win.dll" (u As tagVECTOR2)
  1020. Declare Sub cV2Ortho Lib "time2win.dll" (u As tagVECTOR2, w As tagVECTOR2)
  1021. Declare Sub cV2ScaledNewLength Lib "time2win.dll" (u As tagVECTOR2, ByVal newlen As Double)
  1022. Declare Function cV2SegmentLength Lib "time2win.dll" (p As tagVECTOR2, q As tagVECTOR2) As Double
  1023.  
  1024. ' Functions for calculating 3-D geometry
  1025. Declare Sub cV3Add Lib "time2win.dll" (u As tagVECTOR3, v As tagVECTOR3, w As tagVECTOR3)
  1026. Declare Sub cV3Sub Lib "time2win.dll" (u As tagVECTOR3, v As tagVECTOR3, w As tagVECTOR3)
  1027. Declare Sub cV3Combine Lib "time2win.dll" (u As tagVECTOR3, ByVal c1 As Double, v As tagVECTOR3, ByVal c2 As Double, w As tagVECTOR3)
  1028. Declare Sub cV3Copy Lib "time2win.dll" (u As tagVECTOR3, w As tagVECTOR3)
  1029. Declare Sub cV3Cross Lib "time2win.dll" (u As tagVECTOR3, v As tagVECTOR3, w As tagVECTOR3)
  1030. Declare Function cV3Dot Lib "time2win.dll" (u As tagVECTOR3, v As tagVECTOR3) As Double
  1031. Declare Function cV3Length Lib "time2win.dll" (u As tagVECTOR3) As Double
  1032. Declare Function cV3LengthSquared Lib "time2win.dll" (u As tagVECTOR3) As Double
  1033. Declare Sub cV3LinearIp Lib "time2win.dll" (lo As tagVECTOR3, hi As tagVECTOR3, ByVal alpha As Double, w As tagVECTOR3)
  1034. Declare Sub cV3Mul Lib "time2win.dll" (u As tagVECTOR3, v As tagVECTOR3, w As tagVECTOR3)
  1035. Declare Sub cV3Neg Lib "time2win.dll" (u As tagVECTOR3)
  1036. Declare Sub cV3Normalized Lib "time2win.dll" (u As tagVECTOR3)
  1037. Declare Sub cV3ScaledNewLength Lib "time2win.dll" (u As tagVECTOR3, ByVal newlen As Double)
  1038. Declare Function cV3SegmentLength Lib "time2win.dll" (p As tagVECTOR3, q As tagVECTOR3) As Double
  1039.  
  1040. ' Functions for Huge String management
  1041. Declare Function cHugeStrAdd Lib "time2win.dll" (ByVal hsHandle As Integer, hsText As String) As Integer
  1042. Declare Function cHugeStrAddress Lib "time2win.dll" (ByVal hsHandle As Integer) As Long
  1043. Declare Function cHugeStrAppend Lib "time2win.dll" (ByVal hsHandle As Integer, hsText As String) As Integer
  1044. Declare Function cHugeStrBlocks Lib "time2win.dll" (ByVal hsHandle As Integer) As Long
  1045. Declare Function cHugeStrClear Lib "time2win.dll" (ByVal hsHandle As Integer) As Integer
  1046. Declare Function cHugeStrCreate Lib "time2win.dll" (ByVal hsSize As Long) As Integer
  1047. Declare Function cHugeStrFree Lib "time2win.dll" (ByVal hsHandle As Integer) As Integer
  1048. Declare Function cHugeStrGetNP Lib "time2win.dll" (ByVal hsHandle As Integer) As Long
  1049. Declare Function cHugeStrGetWP Lib "time2win.dll" (ByVal hsHandle As Integer) As Long
  1050. Declare Function cHugeStrLength Lib "time2win.dll" (ByVal hsHandle As Integer) As Long
  1051. Declare Function cHugeStrMid Lib "time2win.dll" (ByVal hsHandle As Integer, ByVal hsStart As Long, ByVal hsLength As Long) As String
  1052. Declare Function cHugeStrNext Lib "time2win.dll" (ByVal hsHandle As Integer, ByVal hsNext As Long) As String
  1053. Declare Function cHugeStrOnDisk Lib "time2win.dll" (ByVal hsHandle As Integer, ByVal hsFile As String, ByVal hsGetPut As Integer) As Long
  1054. Declare Function cHugeStrRead Lib "time2win.dll" (ByVal hsHandle As Integer, ByVal hsBlock As Long) As String
  1055. Declare Function cHugeStrSetNP Lib "time2win.dll" (ByVal hsHandle As Integer, ByVal hsPtr As Long) As Integer
  1056. Declare Function cHugeStrSetWP Lib "time2win.dll" (ByVal hsHandle As Integer, ByVal hsPtr As Long) As Integer
  1057. Declare Function cHugeStrSize Lib "time2win.dll" (ByVal hsHandle As Integer) As Long
  1058.  
  1059. ' Functions for Huge Memory Array management
  1060. Declare Function cHMAClear Lib "time2win.dll" (HMA As tagHMA) As Integer
  1061. Declare Function cHMAClearCol Lib "time2win.dll" (HMA As tagHMA, ByVal Col As Long, ByVal sheet As Long) As Integer
  1062. Declare Function cHMAClearRow Lib "time2win.dll" (HMA As tagHMA, ByVal Row As Long, ByVal sheet As Long) As Integer
  1063. Declare Function cHMAClearSheet Lib "time2win.dll" (HMA As tagHMA, ByVal sheet As Long) As Integer
  1064. Declare Function cHMACreate Lib "time2win.dll" (HMA As tagHMA) As Integer
  1065. Declare Function cHMAFree Lib "time2win.dll" (HMA As tagHMA) As Integer
  1066. Declare Function cHMAGet Lib "time2win.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long) As Variant
  1067. Declare Sub cHMAGetType Lib "time2win.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  1068. Declare Sub cHMAPut Lib "time2win.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, Var As Variant)
  1069. Declare Sub cHMAPutType Lib "time2win.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  1070. Declare Sub cHMArGet Lib "time2win.dll" (HMA As tagHMA, ByVal Col As Long, Var As Variant)
  1071. Declare Sub cHMArGetType Lib "time2win.dll" (HMA As tagHMA, ByVal Col As Long, nType As Any)
  1072. Declare Sub cHMArPut Lib "time2win.dll" (HMA As tagHMA, ByVal Col As Long, Var As Variant)
  1073. Declare Sub cHMArPutType Lib "time2win.dll" (HMA As tagHMA, ByVal Col As Long, nType As Any)
  1074. Declare Sub cHMAsGet Lib "time2win.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  1075. Declare Sub cHMAsGetType Lib "time2win.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, nType As Any)
  1076. Declare Sub cHMAsPut Lib "time2win.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  1077. Declare Sub cHMAsPutType Lib "time2win.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, nType As Any)
  1078. Declare Function cHMAsClearCol Lib "time2win.dll" (HMA As tagHMA, ByVal Col As Long) As Integer
  1079. Declare Function cHMAsClearRow Lib "time2win.dll" (HMA As tagHMA, ByVal Row As Long) As Integer
  1080. Declare Function cHMAOnDisk Lib "time2win.dll" (HMA As tagHMA, ByVal hsFile As String, ByVal hsGetPut As Integer) As Long
  1081.  
  1082.